home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d14
/
dflat.arc
/
MESSAGE.C
< prev
next >
Wrap
Text File
|
1991-04-28
|
10KB
|
423 lines
/* --------- message.c ---------- */
#include <stdio.h>
#include <dos.h>
#include <conio.h>
#include <string.h>
#include <time.h>
#include "dflat.h"
static int px = -1, py = -1;
static int pmx = -1, pmy = -1;
static int mx, my;
static int CriticalError;
static struct events {
MESSAGE event;
int mx;
int my;
} EventQueue[MAXMESSAGES];
static struct msgs {
WINDOW wnd;
MESSAGE msg;
PARAM p1;
PARAM p2;
} MsgQueue[MAXMESSAGES];
static int EventQueueOnCtr;
static int EventQueueOffCtr;
static int EventQueueCtr;
static int MsgQueueOnCtr;
static int MsgQueueOffCtr;
static int MsgQueueCtr;
static int lagdelay = FIRSTDELAY;
static void (interrupt far *oldtimer)(void) = NULL;
WINDOW CaptureMouse = NULLWND;
WINDOW CaptureKeyboard = NULLWND;
static int NoChildCaptureMouse = FALSE;
static int NoChildCaptureKeyboard = FALSE;
static int doubletimer = -1;
static int delaytimer = -1;
static int clocktimer = -1;
WINDOW Cwnd = NULLWND;
static void interrupt far newtimer(void)
{
if (timer_running(doubletimer))
countdown(doubletimer);
if (timer_running(delaytimer))
countdown(delaytimer);
if (timer_running(clocktimer))
countdown(clocktimer);
oldtimer();
}
static char ermsg[] = "Error accessing drive x";
int TestCriticalError(void)
{
int rtn = 0;
if (CriticalError) {
rtn = 1;
CriticalError = FALSE;
if (TestErrorMessage(ermsg) == FALSE)
rtn = 2;
}
return rtn;
}
static void interrupt far newcrit(IREGS ir)
{
if (!(ir.ax & 0x8000)) {
ermsg[sizeof(ermsg) - 2] = (ir.ax & 0xff) + 'A';
CriticalError = TRUE;
}
ir.ax = 0;
}
void init_messages(void)
{
resetmouse();
show_mousecursor();
px = py = -1;
pmx = pmy = -1;
mx = my = 0;
CaptureMouse = CaptureKeyboard = NULLWND;
NoChildCaptureMouse = FALSE;
NoChildCaptureKeyboard = FALSE;
MsgQueueOnCtr = MsgQueueOffCtr = MsgQueueCtr = 0;
EventQueueOnCtr = EventQueueOffCtr = EventQueueCtr = 0;
if (oldtimer == NULL) {
oldtimer = getvect(TIMER);
setvect(TIMER, newtimer);
}
setvect(CRIT, newcrit);
PostMessage(NULLWND,START,0,0);
lagdelay = FIRSTDELAY;
}
/* ----- post an event and parameters to event queue ---- */
static void PostEvent(MESSAGE event, int p1, int p2)
{
if (EventQueueCtr != MAXMESSAGES) {
EventQueue[EventQueueOnCtr].event = event;
EventQueue[EventQueueOnCtr].mx = p1;
EventQueue[EventQueueOnCtr].my = p2;
if (++EventQueueOnCtr == MAXMESSAGES)
EventQueueOnCtr = 0;
EventQueueCtr++;
}
}
static void near collect_events(void)
{
struct tm *now;
static int flipflop = FALSE;
static char timestr[8];
int hr, sk;
static int ShiftKeys = 0;
if (timed_out(clocktimer)) {
time_t t = time(NULL);
now = localtime(&t);
hr = now->tm_hour > 12 ? now->tm_hour - 12 : now->tm_hour;
if (hr == 0)
hr = 12;
sprintf(timestr, "%2.2d:%02d", hr, now->tm_min);
strcpy(timestr+5, now->tm_hour > 11 ? "pm" : "am");
if (flipflop)
*(timestr+2) = ' ';
flipflop ^= TRUE;
set_timer(clocktimer, 1);
PostEvent(CLOCKTICK, FP_SEG(timestr), FP_OFF(timestr));
}
if ((sk = getshift()) != ShiftKeys) {
ShiftKeys = sk;
PostEvent(SHIFT_CHANGED, sk, 0);
}
if (sk & ALTKEY)
if (inp(0x60) == 14) {
while (!(inp(0x60) & 0x80))
;
PostEvent(KEYBOARD, ALT_BS, sk);
}
if (sk & CTRLKEY)
if (inp(0x60) == 82) {
while (!(inp(0x60) & 0x80))
;
PostEvent(KEYBOARD, CTRL_INS, sk);
}
if (keyhit()) {
static int cvt[] = {SHIFT_INS,END,DN,PGDN,BS,'5',
FWD,HOME,UP,PGUP};
int c = getkey();
if (sk & (LEFTSHIFT | RIGHTSHIFT)) {
if (c >= '0' && c <= '9')
c = cvt[c-'0'];
else if (c == '.' || c == DEL)
c = SHIFT_DEL;
else if (c == INS)
c = SHIFT_INS;
}
*(int far *)(MK_FP(0x40,0x1a)) =
*(int far *)(MK_FP(0x40,0x1c));
if (c == F1)
HelpFunction();
else
PostEvent(KEYBOARD, c, sk);
}
get_mouseposition(&mx, &my);
if (mx != px || my != py) {
px = mx;
py = my;
PostEvent(MOUSE_MOVED, mx, my);
}
if (rightbutton())
PostEvent(RIGHT_BUTTON, mx, my);
if (leftbutton()) {
if (mx == pmx && my == pmy) {
if (timer_running(doubletimer)) {
disable_timer(doubletimer);
PostEvent(DOUBLE_CLICK, mx, my);
}
else if (!timer_running(delaytimer)) {
delaytimer = lagdelay;
lagdelay = DELAYTICKS;
PostEvent(LEFT_BUTTON, mx, my);
}
}
else {
disable_timer(doubletimer);
delaytimer = FIRSTDELAY;
lagdelay = DELAYTICKS;
PostEvent(LEFT_BUTTON, mx, my);
pmx = mx;
pmy = my;
}
}
else
lagdelay = FIRSTDELAY;
if (button_releases()) {
doubletimer = DOUBLETICKS;
PostEvent(BUTTON_RELEASED, mx, my);
disable_timer(delaytimer);
}
}
/* ----- post a message and parameters to msg queue ---- */
void PostMessage(WINDOW wnd, MESSAGE msg, PARAM p1, PARAM p2)
{
if (MsgQueueCtr != MAXMESSAGES) {
MsgQueue[MsgQueueOnCtr].wnd = wnd;
MsgQueue[MsgQueueOnCtr].msg = msg;
MsgQueue[MsgQueueOnCtr].p1 = p1;
MsgQueue[MsgQueueOnCtr].p2 = p2;
if (++MsgQueueOnCtr == MAXMESSAGES)
MsgQueueOnCtr = 0;
MsgQueueCtr++;
}
}
int SendMessage(WINDOW wnd, MESSAGE msg, PARAM p1, PARAM p2)
{
int rtn = TRUE, x, y;
if (wnd != NULLWND)
switch (msg) {
case PAINT:
case BORDER:
case RIGHT_BUTTON:
case LEFT_BUTTON:
case DOUBLE_CLICK:
case BUTTON_RELEASED:
case KEYBOARD:
case SHIFT_CHANGED:
if (!isVisible(wnd))
break;
default:
rtn = wnd->wndproc(wnd, msg, p1, p2);
break;
}
if (rtn != FALSE) {
switch (msg) {
case STOP:
hide_mousecursor();
if (oldtimer != NULL) {
setvect(TIMER, oldtimer);
oldtimer = NULL;
}
break;
case CAPTURE_CLOCK:
Cwnd = wnd;
set_timer(clocktimer, 0);
break;
case RELEASE_CLOCK:
Cwnd = NULLWND;
disable_timer(clocktimer);
break;
/* -------- keyboard messages ------- */
case KEYBOARD_CURSOR:
if (wnd == NULLWND)
cursor((int)p1, (int)p2);
else
cursor(GetClientLeft(wnd)+(int)p1,
GetClientTop(wnd)+(int)p2);
break;
case CURRENT_KEYBOARD_CURSOR:
curr_cursor(&x, &y);
*(int*)p1 = x;
*(int*)p2 = y;
break;
case SAVE_CURSOR:
savecursor();
break;
case RESTORE_CURSOR:
restorecursor();
break;
case HIDE_CURSOR:
normalcursor();
hidecursor();
break;
case SHOW_CURSOR:
if (p1)
set_cursor_type(0x0106);
else
set_cursor_type(0x0607);
unhidecursor();
break;
/* -------- mouse messages -------- */
case MOUSE_INSTALLED:
rtn = mouse_installed();
break;
case SHOW_MOUSE:
show_mousecursor();
break;
case HIDE_MOUSE:
hide_mousecursor();
break;
case MOUSE_CURSOR:
set_mouseposition((int)p1, (int)p2);
break;
case CURRENT_MOUSE_CURSOR:
get_mouseposition((int*)p1,(int*)p2);
break;
case WAITMOUSE:
waitformouse();
break;
case TESTMOUSE:
rtn = mousebuttons();
break;
case CAPTURE_MOUSE:
if (p2)
((WINDOW)p2)->PrevMouse = CaptureMouse;
else
wnd->PrevMouse = CaptureMouse;
CaptureMouse = wnd;
NoChildCaptureMouse = (int)p1;
break;
case RELEASE_MOUSE:
CaptureMouse = wnd->PrevMouse;
NoChildCaptureMouse = FALSE;
break;
case CAPTURE_KEYBOARD:
if (p2)
((WINDOW)p2)->PrevKeyboard = CaptureKeyboard;
else
wnd->PrevKeyboard = CaptureKeyboard;
CaptureKeyboard = wnd;
NoChildCaptureKeyboard = (int)p1;
break;
case RELEASE_KEYBOARD:
CaptureKeyboard = wnd->PrevKeyboard;
NoChildCaptureKeyboard = FALSE;
break;
default:
break;
}
}
return rtn;
}
/* ---- dispatch messages to the message proc function ---- */
int dispatch_message(void)
{
WINDOW Mwnd, Kwnd;
/* -------- collect mouse and keyboard events ------- */
collect_events();
while (EventQueueCtr > 0) {
struct events ev = EventQueue[EventQueueOffCtr];
if (++EventQueueOffCtr == MAXMESSAGES)
EventQueueOffCtr = 0;
--EventQueueCtr;
Mwnd = inWindow(ev.mx, ev.my);
if (CaptureMouse != NULLWND)
if (Mwnd == NULLWND ||
NoChildCaptureMouse ||
GetParent(Mwnd) != CaptureMouse)
Mwnd = CaptureMouse;
Kwnd = inFocus;
if (CaptureKeyboard != NULLWND)
if (Kwnd == NULLWND ||
NoChildCaptureKeyboard ||
GetParent(Kwnd) != CaptureKeyboard)
Kwnd = CaptureKeyboard;
switch (ev.event) {
case SHIFT_CHANGED:
case KEYBOARD:
SendMessage(Kwnd, ev.event, ev.mx, ev.my);
break;
case LEFT_BUTTON:
if (!CaptureMouse ||
(!NoChildCaptureMouse &&
GetParent(Mwnd) == CaptureMouse))
if (Mwnd != inFocus)
SendMessage(Mwnd, SETFOCUS, TRUE, 0);
case BUTTON_RELEASED:
case DOUBLE_CLICK:
case RIGHT_BUTTON:
case MOUSE_MOVED:
SendMessage(Mwnd, ev.event, ev.mx, ev.my);
break;
case CLOCKTICK:
SendMessage(Cwnd, ev.event, (PARAM) MK_FP(ev.mx, ev.my), 0);
default:
break;
}
}
/* ------ dequeue all messages ----- */
while (MsgQueueCtr > 0) {
struct msgs mq = MsgQueue[MsgQueueOffCtr];
if (++MsgQueueOffCtr == MAXMESSAGES)
MsgQueueOffCtr = 0;
--MsgQueueCtr;
SendMessage(mq.wnd, mq.msg, mq.p1, mq.p2);
if (mq.msg == STOP || mq.msg == ENDDIALOG)
return FALSE;
}
return TRUE;
}